home *** CD-ROM | disk | FTP | other *** search
/ Champak Vol C-14 / Vol C-14.iso / games / oida_pon.swf / scripts / frame_2 / DoAction_3.as < prev    next >
Text File  |  2012-04-23  |  2KB  |  109 lines
  1. phi = 3.141592653589793 * getProperty("/tracker", _X) / 180;
  2. m = 1;
  3. while(m < 10)
  4. {
  5.    if(2 * math.pi < phi)
  6.    {
  7.       phi -= 2 * math.pi;
  8.    }
  9.    if(phi < 0)
  10.    {
  11.       phi += 2 * math.pi;
  12.    }
  13.    m++;
  14. }
  15. setProperty("/bat1", _rotation, 360 * phi / 2 / math.pi);
  16. setProperty("/ball", _X, getProperty("/ball", _X) + eval("/ball:vel") * Math.sin(eval("/ball:theta")));
  17. setProperty("/ball", _Y, getProperty("/ball", _Y) + eval("/ball:vel") * (- Math.cos(eval("/ball:theta"))));
  18. ab = getProperty("/ball", _X) - 200;
  19. bb = - (getProperty("/ball", _Y) - 200);
  20. neu = Math.atan(ab / bb);
  21. if(eval("/ball:theta") == 0 or eval("/ball:theta") == 2 * math.pi)
  22. {
  23.    neu = math.pi;
  24. }
  25. abl = ab * ab;
  26. bbl = bb * bb;
  27. ro = abl + bbl;
  28. if(bb < 0 and 0 < ab)
  29. {
  30.    neu = math.pi - neu;
  31. }
  32. if(bb < 0 and ab < 0)
  33. {
  34.    neu = math.pi + neu;
  35. }
  36. if(bb < 0 and 0 < ab)
  37. {
  38.    neu = 2 * math.pi - neu;
  39. }
  40. m = 1;
  41. while(m < 10)
  42. {
  43.    if(theta >= 2 * math.pi)
  44.    {
  45.       tbar = theta - 2 * math.pi;
  46.    }
  47.    if(theta < 0)
  48.    {
  49.       theta += 2 * math.pi;
  50.    }
  51.    m++;
  52. }
  53. tbar = math.pi - theta;
  54. m = 1;
  55. while(m < 10)
  56. {
  57.    if(tbar >= 2 * math.pi)
  58.    {
  59.       tbar -= 2 * math.pi;
  60.    }
  61.    if(tbar < 0)
  62.    {
  63.       tbar += 2 * math.pi;
  64.    }
  65.    m++;
  66. }
  67. m = 1;
  68. while(m < 10)
  69. {
  70.    if(2 * math.pi < neu)
  71.    {
  72.       neu -= 2 * math.pi;
  73.    }
  74.    if(neu < 0)
  75.    {
  76.       neu += 2 * math.pi;
  77.    }
  78.    m++;
  79. }
  80. if(33400 < Math.abs(ro) and ro < (183 + eval("/ball:vel")) * (183 + eval("/ball:vel")) and Math.abs(phi - neu) < 0.18)
  81. {
  82.    set("/ball:theta",math.pi + 2 * neu - eval("/ball:theta"));
  83.    set("/ball:theta",eval("/ball:theta") + (neu - phi) / curve);
  84.    set("/ball:vel",eval("/ball:vel") + velo);
  85.    dis = 1;
  86. }
  87. if(33400 < Math.abs(ro) and ro < 34500 and 2 * math.pi - 0.09 < phi + neu and phi + neu < 2 * math.pi + 0.09 and dis != 1 and (6.1 < neu or neu < 0.2))
  88. {
  89.    set("/ball:theta",math.pi + 2 * neu - eval("/ball:theta"));
  90.    set("/ball:vel",eval("/ball:vel") + velo);
  91. }
  92. dis = 0;
  93. if(5 >= getProperty("/ball", _Y))
  94. {
  95.    gotoAndStop(4);
  96. }
  97. if(getProperty("/ball", _Y) >= 395)
  98. {
  99.    gotoAndStop(4);
  100. }
  101. if(getProperty("/ball", _X) >= 395)
  102. {
  103.    gotoAndStop(4);
  104. }
  105. if(5 >= getProperty("/ball", _X))
  106. {
  107.    gotoAndStop(4);
  108. }
  109.